1 Public Class FrmPURCHASEORDERDATA_EDIT
2
3     Private Sub cmdSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSave.Click
4         If txtname.Text <>
"" And txtdesc.Text <> "" And txtid.Text <> "" And txtqty.Text <> "" Then
5             If Not IsNumeric(txtqty.Text) Then
6                 MsgBox(
"Quantity Should Be Numeric !!", MsgBoxStyle.Information)
7                 Exit Sub
8             End If
9             With FrmPURCHASEORDERADD.lstitems
10                 
' .FocusedItem.Remove()
11                 
'MsgBox("A")
12                 .FocusedItem.SubItems(
4).Text = txtqty.Text
13                 
' .Items.Add(txtid.Text)
14                 
' .Items((.Items.Count - 1)).SubItems.Add(txtdtl.Text)
15                 
' .Items((.Items.Count - 1)).SubItems.Add(txtname.Text)
16                 
' .Items((.Items.Count - 1)).SubItems.Add(txtdesc.Text)
17                 
' .Items((.Items.Count - 1)).SubItems.Add(txtprice.Text)
18                 
'.Items((.Items.Count - 1)).SubItems.Add(txtbarcode.Text)
19                 
'.Items((.Items.Count - 1)).SubItems.Add(txtqty.Text)
20             End With
21         End If
22         Me.Close()
23     End Sub
24
25     Private Sub cmdCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCancel.Click
26         Me.Close()
27     End Sub
28
29     Private Sub txtqty_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtqty.TextChanged
30         txtqty.Text = str_Filter(txtqty,
48, 57, 0, 0)
31     End Sub
32 End Class


Gõ tìm kiếm nhanh...